Spektrum der Wissenschaft, Januar 2014
Perkulation beim Phasenbergang
======================================

ScriptBegin
var Grafik="Script Turtle";

var r=2;              // Radius
var wPen=0.4;         // Strichstrke mm
var cPen1="#5b9bda";  // Penfarbe
var cBack1="#ff6b01"; // Hintergrund
var cBack2="#fee79c";
var imax=55;
var jmax=45;
var a=0;        // 0- 0.999

function init() //Initialisierungen
{ t.setBrush(cBack2);
  t.setGradient(-200,-70,200,70,cBack1,cBack2);
//  t.setGradient(0.5,"red");
  t.setBrush("",15);
  t.setPage();
  t.setAntiAliasing();
} 


function draw() //Zeichenbefehle
{ 
  defShift(); t.setPen(cPen1,wPen);

  for(var i=-imax; i<imax; i++)
   {
   for (var j=-jmax; j<jmax; ++j) 
    { t.setNoStyle();
      t.goTo(0,0); t.shift("ShiftA",i); t.shift("ShiftB",j);
      t.turnTo(15); rndLine();
    }
   }
  t.setPen("black",0);
  t.rahmen();
}



function rndLine()
{ t.setNoStyle(); t.move(r); t.turn(120);
  
  for(var i=0; i<3; i++)
  { if (a<t.rndW(-1,1)) t.setPen();
    else t.setNoStyle();
    t.move(r); t.turn(60);
  }
}


function defShift()
{ t.setNoStyle();
  t.goTo(0,0); t.turnTo(0);
  t.move(r); t.turn(60); t.move(r);
  t.defPoint("ShiftA");

  t.goTo(0,0); t.turnTo(0);
  t.move(r); t.turn(-60); t.move(r);
  t.defPoint("ShiftB");  

}


ScriptEnd

